<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>538</cardCount>
<cardID>3819</cardID>
<listID>124258</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Includes the TextDialog 1.3 XCMD by Jay Hodgdon-- Includes the LockCursor 1.02 XCMD by Jeff Winkler-- Includes the SetDate 1.0 XCMD by All-American Software Development Corp.on openStackstackWaitglobal findString,dialogHelp,exportFile,userType,tempLevel,scrollList,palLoc1,palLoc2,palLoc3,dstFlagput the userLevel into tempLevelset the userLevel to 5put off into dialogHelpput "" into findStringput "" into exportFileput word 2 of cd fld id 9 of cd id 3819 into palLoc2put word 2 of cd fld id 27 of cd id 3819 into palLoc1put word 2 of cd fld id 26 of cd id 3819 into palLoc3put dstCheck() into dstFlagmakeList "Introduction","Shareware Information","About ZIP Codes",¬"The Stack's Organization","Dialing Numbers","The Quit And Home Button",¬"The Compact And Export Button","The Linked Button","The Find Button",¬"The Help Button And Dialogs","The Time Zone Button","The Print Button",¬"The Map Buttons","The Arrow Buttons","The Time Zone Select Button",¬"The Selective Find Button","The Area/ZIP Codes Stack Button",¬"Adding Information To The Stack","Final Information","Version Notes",¬"About The Author"if the screenRect = "0,0,512,342" then hide menubarlock screenaddMenusscreenChangepreparePictsLockCursor pointerput cd fld id 28 of cd id 3819 into userTypeif userType = beginner thenput user into cd fld id 28 of cd id 3819TextDialog 128,Geneva,9,"128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148",1wait for 5send mainHelp to bg btn id 53end ifif the freeSize of this stack/1000 ≥ 100 thenanswer "You have over 100" & ¬" kilobytes free in this stack! Compacting will free up this space on your volume." with Help or OKif it = Help then TextDialog 128,Geneva,9,"128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148",7end ifend openStackon suspendStackreset menubarend suspendStackon resumeStackhide menubaraddMenusif the screenRect ≠ "0,0,512,342" then show menubarend resumeStackon makeListglobal scrollListput "" into scrollListrepeat with x=1 to the paramCountput (the param of x) & return after scrollListend repeatend makeListfunction lastHCItem delim,theText-- from the 2.0 Home stackif delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ¬length(theText) of theText) into theTextend ifreturn theTextend lastHCItemon screenChangeunlock screen with visual dissolve very fastend screenChangeon appear thePicture,visibleFlag,thePointglobal dialogHelpif visibleFlag = on thenif dialogHelp is on then picture thePicture,resource,rect,falseshow window thePicture at thePointend ifif visibleFlag = off thenif thePicture is in the windows then hide window thePictureif dialogHelp is on thenif thePicture is in the windows then close window thePictureend ifend ifend appearon preparePictspicture "Occur Alert",resource,rect,falsepicture "Find Alert",resource,rect,falsepicture "Export Alert",resource,rect,falsepicture "Compact Alert",resource,rect,falsepicture "Paste Alert",resource,rect,falsepicture "Prepare Alert",resource,rect,falsepicture "World Map",resource,rect,falseend preparePictson closePictsclose window "Occur Alert"close window "Find Alert"close window "Export Alert"close window "Compact Alert"close window "Paste Alert"close window "Prepare Alert"close window "World Map"end closePictson closeStackglobal exportFile,tempLevel,palLoc1,palLoc2,palLoc3if exportFile ≠ empty thenanswer "Exporting will be turned off." with OKput "" into exportFilelock screenhide bg btn id 58 of cd id 3819screenChangeend ifput cd fld id 29 of cd id 3819 into autoFlagif autoFlag = on thenput round((the freeSize of this stack)/1000) into extraKif (round(the diskSpace/1000)) < (round(the size of this stack/1000)+extraK) thenanswer "You don't have enough disk space to compact the stack!" with "OK"exit closeStackend ifappear "Compact Alert",on,"70,131"doMenu "Compact Stack"appear "Compact Alert",offend ifappendLoc "27",palLoc1appendLoc "9",palLoc2appendLoc "26",palLoc3stackWaitclosePictsreset menubarset the userLevel to tempLevelshow menuBarLockCursor falseend closeStackon resetStackglobal palLoc1,palLoc2,palLoc3put -8 into cd fld id 9 of cd id 3819put "38,84" into palLoc2put All into cd fld id 26 of cd id 3819put "128,116" into palLoc3put off into cd fld id 27 of cd id 3819put "260,182" into palLoc1put beginner into cd fld id 28 of cd id 3819put off into cd fld id 29 of cd id 3819put "" into cd fld id 30 of cd id 3819reset menubarend resetStackon menHommenDo 26end menHomon menFinmenDo 28end menFinon menHelsend mainHelp to bg btn id 53 of cd id 3819end menHelon menUSAmenDo 49end menUSAon menCanmenDo 48end menCanon menTimmenDo 29end menTimon menWorif the short id of this bg ≠ 2114 thenlock screengo cd id 3819screenChangeend ifsend worldMap to bg btn id 49 of cd id 3819end menWoron menLinmenDo 27end menLinon menDo bIDsend mouseUp to bg btn id bID of cd id 3819end menDoon addMenuscreate menu "Area/ZIP"put "Quit/Home,Linked Stack/App,Find Text...,Stack Help,Time Zone...,U.S.A. Map,Canada Map,World Map" into ¬menu "Area/ZIP" with menuMsgs "menHom,menLin,menFin,menHel,menTim,menUSA,menCan,menWor"put "H,L,F,Y,T,1,2,3" into cmdStuffrepeat with x=1 to 8set commandChar of menuItem x of menu "Area/ZIP" to item x of cmdStuffend repeatput "2,6,7,8,9,11,14" into cmdListrepeat with x=1 to the number of items in cmdListset cmdChar of menuItem (item x of cmdList) of menu Go to ""end repeatend addMenuson idleglobal palLoc1,palLoc2,palLoc3if DST is in the windows then put the loc of window DST into palLoc1if "Local Time Zone" is in the windows then put the loc of window "Local Time Zone" into palLoc2if "Selective Find" is in the windows then put the loc of window "Selective Find" into palLoc3end idleon appendLoc fldNum,locNumif the number of words in cd fld id fldNum of cd id 3819 = 2 thenput locNum into word 2 of cd fld id fldNum of cd id 3819elseput " " & locNum after word 1 of cd fld id fldNum of cd id 3819end ifend appendLocon stackWaitLockCursor trueLockCursor stackwatchend stackWaiton commandKeyDown theKeyif theKey = . thenif (the visible of window "Find Alert" = true) or ¬(the visible of window "Occur Alert" = true) or ¬(the visible of window "Export Alert" = true) thenappear "Find Alert",offappear "Occur Alert",offappear "Export Alert",offanswer "Finding has been cancelled." with "OK"lock screenpop cdscreenChangeend ifend ifpass commandKeyDownend commandKeyDownfunction dstCheckput no into dstFlagput the seconds into tempHolderput char 1 to (offset("/",the date)-1) of the date into monthNumif (monthNum ≠ 4) and (monthNum ≠ 10) thenif (monthNum > 4) and (monthNum < 10) then put yes into dstFlagreturn dstFlagexit dstCheckend ifSetDate (tempHolder - ((monthNum-3)*2764800))cycleDay plus,Aprilif the seconds < tempHolder thenSetDate (tempHolder - ((monthNum-11)*2764800))cycleDay minus,Octoberif the seconds > tempHolder then put yes into dstFlagend ifSetDate tempHolderreturn dstFlagend dstCheckon cycleDay backForth,stopMonthrepeatif backForth = plus thenSetDate (the secs + 86400)elseSetDate (the secs - 86400)end ifif (word 1 of the long date contains Sunday) and (word 2 of the long date = stopMonth) then exit repeatend repeatend cycleDay</script>
